home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SPADV.ZIP / TITCMP.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-17  |  609b  |  31 lines
  1. uses crt,graph;
  2. type
  3.   t1=array[1..16392] of byte;
  4.   t2=array[1..16240] of byte;
  5. var
  6.   s1:t1 absolute $b800:0000;
  7.   s2:t2 absolute $b800:0000;
  8.   fi:file of t2;
  9.   fo:file of t2;
  10.   c,t:word;
  11.     k:char;
  12.     gd,gm:integer;
  13. begin
  14.     gd:=CGA;
  15.     gm:=CGAC2;
  16.     initgraph(gd,gm,'e:bgi');
  17.   setgraphmode(1);
  18.   assign(fo,'title.dat');
  19.   rewrite(fo);
  20.   for t:=1 to 2 do begin
  21.     assign(fi,'title'+chr(48+t)+'.pic');
  22.     reset(fi); read(fi,s2);
  23.     k:=readkey;
  24.     move(s2[8],s2[1],16240);
  25.     k:=readkey;
  26.     for c:=1 to 16240 do Inc(s2[c],25);
  27.     write(fo,s2);
  28.   end;
  29.   close(fo);
  30.   close(fi);
  31. end.